Public Class CTax
    
    Private _intTaxID As Integer
    Private _intItemID As Integer
    Private _strTaxName As String
    Private _strAddDeduct As Char
    Private _strTaxType As Char
    Private _dblAmount As Double
    Private _chrInclusive As Char
    Private _strDescription As String
    Private _strBillNo As String
    Private _strApplyTo As String
    Private _dblPercent As Double
    Private _strBatchNo As String


    Public Property TaxID() As Integer
        Get
            Return _intTaxID
        End Get
        Set(ByVal value As Integer)
            _intTaxID = value
        End Set
    End Property
    '...20/09/2007
    Public Property ItemID() As Integer
        Get
            Return _intItemID
        End Get
        Set(ByVal value As Integer)
            _intItemID = value
        End Set
    End Property
    Public Property BillNo() As String
        Get
            Return _strBillNo
        End Get
        Set(ByVal value As String)
            _strBillNo = value
        End Set
    End Property
    Public Property TaxName() As String
        Get
            Return _strTaxName
        End Get
        Set(ByVal value As String)
            _strTaxName = value
        End Set
    End Property

    Public Property TaxDescription() As String
        Get
            Return _strDescription
        End Get
        Set(ByVal value As String)
            _strDescription = value
        End Set
    End Property

    Public Property ApplyTo() As String
        Get
            Return _strApplyTo
        End Get
        Set(ByVal value As String)
            _strApplyTo = value
        End Set
    End Property

    Public Property AddOrDeduct() As Char
        Get
            Return _strAddDeduct
        End Get
        Set(ByVal value As Char)
            _strAddDeduct = value
        End Set
    End Property

    Public Property TaxAmountType() As Char

        Get
            Return _strTaxType
        End Get
        Set(ByVal value As Char)
            _strTaxType = value
        End Set
    End Property

    Public Property TaxAmount() As Double
        Get
            Return Format(_dblAmount, "0.00")
        End Get
        Set(ByVal value As Double)
            _dblAmount = value
        End Set
    End Property

    Public Property TaxInclusive() As Char
        Get
            Return _chrInclusive
        End Get
        Set(ByVal value As Char)
            _chrInclusive = value
        End Set
    End Property

    Public Property Percent() As Double
        Get
            Return Format(_dblPercent, "0.00")
        End Get
        Set(ByVal value As Double)
            _dblPercent = value
        End Set
    End Property

    Public Property CLRcode() As String
        Get
            Return _strBatchNo
        End Get
        Set(ByVal value As String)
            _strBatchNo = value
        End Set
    End Property
End Class
